home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 27 / CDROM27.iso / share / progra / mai / Controls, TextBox - Undoing last change < prev    next >
Encoding:
Text File  |  1997-07-15  |  332 b   |  10 lines
  1. 'Description: Undo Text Box Change
  2.  
  3. 'Declare Function sendmessage Lib "User" (ByVal hWnd As Integer, _
  4.  ByVal wmsg As Integer, ByVal wparam As Integer, lparam As Any) As Long
  5. 'Global Const WM_USER = &H400
  6. 'Global Const EM_UNDO = WM_USER+23
  7.  
  8. 'Sub UndoTBchange (TB As TextBox)
  9. x% = sendmessage(TB.hWnd, EM_UNDO, 0, 0)
  10. End Sub